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-- file DILitDefs.Mesa 
-- last modified by 

Sandman, November 2, 1977 8:44 AM 

Barbara, June 21, 1978 1:05 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [PageSize], 

StringDefs: FROM "stringdefs" USING [Substring, SubStringDescriptor] ; 

DILitDefs: DEFINITIONS ■ 
BEGIN 

LitTablnit, LitTabErase: PROCEDURE; 

-- numeric literals 

LTRecord: PRIVATE TYPE - RECORD [ 
free: BOOLEAN, 
link: LTIndex, 
datum: SELECT kind: * FROM 

short => [value: WORD, unused: UNSPECIFIED], 

long => [value: LONG INTEGER], 

ENDCASE]; 

--size of debugger's literal table is currently 1 page 
HalfPage: CARDINAL ■ Al toDefs . PageSize/2; 

LTRecordSize: CARDINAL - 3; 

MaxLiterals: CARDINAL - HalfPage/LTRecordSize; 
LTIndex: TYPE - CARDINAL [0. .MaxLiterals) ; 
LTNull: PRIVATE LTIndex = FIRST[LTIndex]; 

FindLiteral: PROCEDURE [WORD] RETURNS [LTIndex]; 
LiteralValue: PROCEDURE [LTIndex] RETURNS [WORD]; 
FindLongLiteral: PROCEDURE [LONG INTEGER] RETURNS [LTIndex]; 
LongLiteralValue: PROCEDURE [LTIndex] RETURNS [LONG INTEGER]; 
TooManyLiterals: ERROR; 

-- string literals 

STRecord: PRIVATE TYPE - RECORD [ 
free: BOOLEAN, 
link: STIndex, 

string: StringDefs .SubStringDescriptor]; 
-- the actual string text follows here 

STRecordSize: CARDINAL - 5; 

MaxStringLiterals: CARDINAL ■ Half Page/STRecordSize; 
STIndex: TYPE - CARDINAL [0 . .MaxStr ingLiterals) ; 
STNull: PRIVATE STIndex - FIRST[STIndex]; 

FindStringLiteral: PROCEDURE [StringDefs .Substring] RETURNS [STIndex]; 
StringLiteralValue: PROCEDURE [STIndex] RETURNS [StringDefs. Substring]; 
TooManyStringLiterals: ERROR; 

END. 


